home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / tex / texsrc.arc / COERCE.H < prev    next >
Text File  |  1988-09-14  |  25KB  |  566 lines
  1. #define zmem (zzzaa - memmin)
  2. #define r_initialize register memoryword *mem=zmem, *eqtb=zeqtb;
  3. #define r_println
  4. #define printchar(a) zprintchar((int)(a))
  5. #define r_printchar register memoryword *eqtb=zeqtb;
  6. #define print(a) zprint((integer)(a))
  7. #define r_print register memoryword *eqtb=zeqtb;
  8. #define slowprint(a) zslowprint((integer)(a))
  9. #define r_slowprint register memoryword *eqtb=zeqtb;
  10. #define printnl(a) zprintnl((strnumber)(a))
  11. #define r_printnl
  12. #define printesc(a) zprintesc((strnumber)(a))
  13. #define r_printesc register memoryword *eqtb=zeqtb;
  14. #define printthedigs(a) zprintthedigs((int)(a))
  15. #define r_printthedigs
  16. #define printint(a) zprintint((integer)(a))
  17. #define r_printint
  18. #define printcs(a) zprintcs((integer)(a))
  19. #define r_printcs register memoryword *eqtb=zeqtb;
  20. #define sprintcs(a) zsprintcs((halfword)(a))
  21. #define r_sprintcs
  22. #define printfilenam(a,b,c) zprintfilenam((integer)(a),(integer)(b),(integer)(c))
  23. #define r_printfilenam
  24. #define printsize(a) zprintsize((integer)(a))
  25. #define r_printsize
  26. #define printwritewh(a,b) zprintwritewh((strnumber)(a),(halfword)(b))
  27. #define r_printwritewh register memoryword *mem=zmem;
  28. #define r_jumpout
  29. #define r_error
  30. #define fatalerror(a) zfatalerror((strnumber)(a))
  31. #define r_fatalerror
  32. #define overflow(a,b) zoverflow((strnumber)(a),(integer)(b))
  33. #define r_overflow
  34. #define confusion(a) zconfusion((strnumber)(a))
  35. #define r_confusion
  36. boolean initterminal();
  37. #define r_initterminal
  38. strnumber makestring();
  39. #define r_makestring
  40. #define streqbuf(a,b) zstreqbuf((strnumber)(a),(integer)(b))
  41. boolean zstreqbuf();
  42. #define r_streqbuf
  43. #define streqstr(a,b) zstreqstr((strnumber)(a),(strnumber)(b))
  44. boolean zstreqstr();
  45. #define r_streqstr
  46. boolean getstringsst();
  47. #define r_getstringsst
  48. #define printtwo(a) zprinttwo((integer)(a))
  49. #define r_printtwo
  50. #define printhex(a) zprinthex((integer)(a))
  51. #define r_printhex
  52. #define printASCII(a) zprintASCII((integer)(a))
  53. #define r_printASCII
  54. #define printromanin(a) zprintromanin((integer)(a))
  55. #define r_printromanin
  56. #define r_printcurrent
  57. #define r_terminput
  58. #define interror(a) zinterror((integer)(a))
  59. #define r_interror
  60. #define r_normalizesel
  61. #define r_pauseforinst
  62. #define half(a) zhalf((integer)(a))
  63. integer zhalf();
  64. #define r_half
  65. #define rounddecimal(a) zrounddecimal((int)(a))
  66. scaled zrounddecimal();
  67. #define r_rounddecimal
  68. #define printscaled(a) zprintscaled((scaled)(a))
  69. #define r_printscaled
  70. #define nxplusy(a,b,c) znxplusy((integer)(a),(scaled)(b),(scaled)(c))
  71. scaled znxplusy();
  72. #define r_nxplusy
  73. #define xovern(a,b) zxovern((scaled)(a),(integer)(b))
  74. scaled zxovern();
  75. #define r_xovern
  76. #define xnoverd(a,b,c) zxnoverd((scaled)(a),(integer)(b),(integer)(c))
  77. scaled zxnoverd();
  78. #define r_xnoverd
  79. #define badness(a,b) zbadness((scaled)(a),(scaled)(b))
  80. halfword zbadness();
  81. #define r_badness
  82. #define printword(a) zprintword((memoryword)(a))
  83. #define r_printword
  84. #define showtokenlis(a,b,c) zshowtokenlis((integer)(a),(integer)(b),(integer)(c))
  85. #define r_showtokenlis register memoryword *mem=zmem;
  86. #define r_runaway register memoryword *mem=zmem;
  87. halfword getavail();
  88. #define r_getavail register memoryword *mem=zmem;
  89. #define flushlist(a) zflushlist((halfword)(a))
  90. #define r_flushlist register memoryword *mem=zmem;
  91. #define getnode(a) zgetnode((integer)(a))
  92. halfword zgetnode();
  93. #define r_getnode register memoryword *mem=zmem;
  94. #define freenode(a,b) zfreenode((halfword)(a),(halfword)(b))
  95. #define r_freenode register memoryword *mem=zmem;
  96. #define r_sortavail register memoryword *mem=zmem;
  97. halfword newnullbox();
  98. #define r_newnullbox register memoryword *mem=zmem;
  99. halfword newrule();
  100. #define r_newrule register memoryword *mem=zmem;
  101. #define newligature(a,b,c) znewligature((int)(a),(int)(b),(halfword)(c))
  102. halfword znewligature();
  103. #define r_newligature register memoryword *mem=zmem;
  104. halfword newdisc();
  105. #define r_newdisc register memoryword *mem=zmem;
  106. #define newmath(a,b) znewmath((scaled)(a),(int)(b))
  107. halfword znewmath();
  108. #define r_newmath register memoryword *mem=zmem;
  109. #define newspec(a) znewspec((halfword)(a))
  110. halfword znewspec();
  111. #define r_newspec register memoryword *mem=zmem;
  112. #define newparamglue(a) znewparamglue((int)(a))
  113. halfword znewparamglue();
  114. #define r_newparamglue register memoryword *mem=zmem, *eqtb=zeqtb;
  115. #define newglue(a) znewglue((halfword)(a))
  116. halfword znewglue();
  117. #define r_newglue register memoryword *mem=zmem;
  118. #define newskipparam(a) znewskipparam((int)(a))
  119. halfword znewskipparam();
  120. #define r_newskipparam register memoryword *mem=zmem, *eqtb=zeqtb;
  121. #define newkern(a) znewkern((scaled)(a))
  122. halfword znewkern();
  123. #define r_newkern register memoryword *mem=zmem;
  124. #define newpenalty(a) znewpenalty((integer)(a))
  125. halfword znewpenalty();
  126. #define r_newpenalty register memoryword *mem=zmem;
  127. #define checkmem(a) zcheckmem((int)(a))
  128. #define r_checkmem register memoryword *mem=zmem;
  129. #define searchmem(a) zsearchmem((halfword)(a))
  130. #define r_searchmem register memoryword *mem=zmem, *eqtb=zeqtb;
  131. #define shortdisplay(a) zshortdisplay((integer)(a))
  132. #define r_shortdisplay register memoryword *mem=zmem;
  133. #define printfontand(a) zprintfontand((integer)(a))
  134. #define r_printfontand register memoryword *mem=zmem;
  135. #define printmark(a) zprintmark((integer)(a))
  136. #define r_printmark register memoryword *mem=zmem;
  137. #define printruledim(a) zprintruledim((scaled)(a))
  138. #define r_printruledim
  139. #define printglue(a,b,c) zprintglue((scaled)(a),(integer)(b),(strnumber)(c))
  140. #define r_printglue
  141. #define printspec(a,b) zprintspec((integer)(a),(strnumber)(b))
  142. #define r_printspec register memoryword *mem=zmem;
  143. #define printfamandc(a) zprintfamandc((halfword)(a))
  144. #define r_printfamandc register memoryword *mem=zmem;
  145. #define printdelimit(a) zprintdelimit((halfword)(a))
  146. #define r_printdelimit register memoryword *mem=zmem;
  147. #define printsubsidi(a,b) zprintsubsidi((halfword)(a),(int)(b))
  148. #define r_printsubsidi register memoryword *mem=zmem;
  149. #define printstyle(a) zprintstyle((integer)(a))
  150. #define r_printstyle
  151. #define printskippar(a) zprintskippar((integer)(a))
  152. #define r_printskippar
  153. #define shownodelist(a) zshownodelist((integer)(a))
  154. #define r_shownodelist register memoryword *mem=zmem;
  155. #define showbox(a) zshowbox((halfword)(a))
  156. #define r_showbox register memoryword *eqtb=zeqtb;
  157. #define deletetokenr(a) zdeletetokenr((halfword)(a))
  158. #define r_deletetokenr register memoryword *mem=zmem;
  159. #define deletegluere(a) zdeletegluere((halfword)(a))
  160. #define r_deletegluere register memoryword *mem=zmem;
  161. #define flushnodelis(a) zflushnodelis((halfword)(a))
  162. #define r_flushnodelis register memoryword *mem=zmem;
  163. #define copynodelist(a) zcopynodelist((halfword)(a))
  164. halfword zcopynodelist();
  165. #define r_copynodelist register memoryword *mem=zmem;
  166. #define printmode(a) zprintmode((integer)(a))
  167. #define r_printmode
  168. #define r_pushnest
  169. #define r_popnest register memoryword *mem=zmem;
  170. #define r_showactiviti register memoryword *mem=zmem, *eqtb=zeqtb;
  171. #define printparam(a) zprintparam((integer)(a))
  172. #define r_printparam
  173. #define r_begindiagnos register memoryword *eqtb=zeqtb;
  174. #define enddiagnosti(a) zenddiagnosti((int)(a))
  175. #define r_enddiagnosti
  176. #define printlengthp(a) zprintlengthp((integer)(a))
  177. #define r_printlengthp
  178. #define printcmdchr(a,b) zprintcmdchr((int)(a),(halfword)(b))
  179. #define r_printcmdchr
  180. #define showeqtb(a) zshoweqtb((halfword)(a))
  181. #define r_showeqtb register memoryword *mem=zmem, *eqtb=zeqtb;
  182. #define idlookup(a,b) zidlookup((integer)(a),(integer)(b))
  183. halfword zidlookup();
  184. #define r_idlookup
  185. #define primitive(a,b,c) zprimitive((strnumber)(a),(int)(b),(halfword)(c))
  186. #define r_primitive register memoryword *eqtb=zeqtb;
  187. #define newsavelevel(a) znewsavelevel((int)(a))
  188. #define r_newsavelevel
  189. #define eqdestroy(a) zeqdestroy((memoryword)(a))
  190. #define r_eqdestroy register memoryword *mem=zmem;
  191. #define eqsave(a,b) zeqsave((halfword)(a),(int)(b))
  192. #define r_eqsave register memoryword *eqtb=zeqtb;
  193. #define eqdefine(a,b,c) zeqdefine((halfword)(a),(int)(b),(halfword)(c))
  194. #define r_eqdefine register memoryword *eqtb=zeqtb;
  195. #define eqworddefine(a,b) zeqworddefine((halfword)(a),(integer)(b))